home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 007 / boostrs.arc / XLEFT.PAS < prev    next >
Pascal/Delphi Source File  |  1980-01-02  |  224b  |  13 lines
  1. {$IBoDecl}
  2. {$ILeft}
  3. {$IPutStr}
  4.  
  5. BEGIN
  6.  
  7.    ClrScr;
  8.    PutStr (h,left('Name ',60,'_'),5,1,14);
  9.    PutStr (h,left('Street ',60,'_'),5,2,14);
  10.    PutStr (h,left('City, State, and Zip ',60,'_'),5,3,14);
  11.    read;
  12.  
  13. END.